object fmMontajYapma: TfmMontajYapma
  Tag = 127
  Left = 63
  Top = 13
  Width = 1002
  Height = 737
  Caption = #220'retim Haz'#305'rlama'
  Color = clBtnFace
  Font.Charset = TURKISH_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesktopCenter
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Label12: TLabel
    Left = 10
    Top = 210
    Width = 31
    Height = 16
    AutoSize = False
    Caption = 'Grup'
    Font.Charset = TURKISH_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label13: TLabel
    Left = 10
    Top = 189
    Width = 55
    Height = 16
    AutoSize = False
    Caption = #220'st Grup'
    Font.Charset = TURKISH_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object duzeltyetkisik: TPanel
    Tag = 1002
    Left = 176
    Top = 183
    Width = 54
    Height = 27
    BevelOuter = bvNone
    TabOrder = 12
  end
  object Panel1: TPanel
    Left = 159
    Top = 184
    Width = 375
    Height = 41
    BevelOuter = bvNone
    BevelWidth = 2
    Font.Charset = TURKISH_CHARSET
    Font.Color = clMaroon
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 231
    Width = 529
    Height = 328
    Color = 14811135
    DataSource = dm.spmakinalistes
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 2
    TitleFont.Charset = TURKISH_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Arial'
    TitleFont.Style = [fsBold]
    Columns = <
      item
        Expanded = False
        FieldName = 'serinos'
        Title.Caption = 'Seri No'
        Width = 119
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'stokkodu'
        Title.Caption = 'Stok kodu'
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'cinsi'
        Title.Caption = 'Cinsi'
        Width = 272
        Visible = True
      end>
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 0
    Width = 529
    Height = 109
    TabOrder = 0
    object Label5: TLabel
      Left = 171
      Top = 18
      Width = 55
      Height = 16
      AutoSize = False
      Caption = 'Stok Kodu'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label6: TLabel
      Left = 16
      Top = 18
      Width = 55
      Height = 16
      AutoSize = False
      Caption = #220'retim No'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label7: TLabel
      Left = 16
      Top = 42
      Width = 31
      Height = 16
      AutoSize = False
      Caption = 'Tarih'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label8: TLabel
      Left = 171
      Top = 41
      Width = 31
      Height = 16
      AutoSize = False
      Caption = 'Cinsi'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label17: TLabel
      Left = 16
      Top = 63
      Width = 57
      Height = 16
      AutoSize = False
      Caption = 'A'#231#305'klama'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label11: TLabel
      Left = 16
      Top = 86
      Width = 57
      Height = 16
      AutoSize = False
      Caption = 'Mesaj'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object edStokkodu: TEdit
      Tag = 1
      Left = 237
      Top = 15
      Width = 185
      Height = 22
      TabStop = False
      Color = 14811135
      Font.Charset = TURKISH_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 2
      OnKeyPress = Sonraki
    end
    object edUretimno: TEdit
      Left = 72
      Top = 15
      Width = 78
      Height = 22
      TabStop = False
      Color = 14811135
      Font.Charset = TURKISH_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
    end
    object edcinsi: TEdit
      Tag = 2
      Left = 237
      Top = 38
      Width = 276
      Height = 22
      TabStop = False
      Color = 14811135
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 3
      OnKeyPress = Sonraki
    end
    object edTarih: TwwDBDateTimePicker
      Left = 72
      Top = 38
      Width = 79
      Height = 22
      TabStop = False
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      Color = 14811135
      Epoch = 1950
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      ShowButton = True
      TabOrder = 1
      OnKeyPress = Sonraki
    end
    object ack: TEdit
      Tag = 2
      Left = 72
      Top = 61
      Width = 441
      Height = 22
      TabStop = False
      Color = 14811135
      Font.Charset = TURKISH_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 4
      OnKeyPress = Sonraki
    end
    object Mesaj: TEdit
      Tag = 2
      Left = 72
      Top = 84
      Width = 441
      Height = 22
      TabStop = False
      Color = 14811135
      Font.Charset = TURKISH_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 5
      OnKeyPress = Sonraki
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 107
    Width = 529
    Height = 76
    TabOrder = 1
    object Label9: TLabel
      Left = 16
      Top = 45
      Width = 57
      Height = 16
      AutoSize = False
      Caption = 'Makina No'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label3: TLabel
      Left = 256
      Top = 20
      Width = 71
      Height = 16
      AutoSize = False
      Caption = 'Personel Kodu'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label2: TLabel
      Left = 256
      Top = 44
      Width = 71
      Height = 16
      AutoSize = False
      Caption = 'Personel Ad'#305
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label1: TLabel
      Left = 16
      Top = 20
      Width = 49
      Height = 16
      AutoSize = False
      Caption = 'Seri No'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object bserino: TSpeedButton
      Left = 228
      Top = 18
      Width = 23
      Height = 23
      Caption = '...'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = bserinoClick
    end
    object edMakinaNo: TwwDBEdit
      Left = 72
      Top = 42
      Width = 153
      Height = 22
      Color = 14811135
      DataField = 'makinano'
      DataSource = dm.spuretims
      ReadOnly = True
      TabOrder = 1
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object edSeriNo: TEdit
      Left = 72
      Top = 18
      Width = 153
      Height = 22
      CharCase = ecUpperCase
      TabOrder = 0
      OnKeyPress = edSeriNoKeyPress
    end
    object EdPerAdi: TwwDBLookupCombo
      Left = 336
      Top = 42
      Width = 185
      Height = 21
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      DisableThemes = False
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'pismi'#9'25'#9'pismi'#9'F'
        'pkodu'#9'5'#9'pkodu'#9'F'
        'PerKod'#9'10'#9'PerKod'#9'F')
      DataField = 'perkod'
      DataSource = dm.spuretims
      LookupTable = dm.sppersonel
      LookupField = 'PerKod'
      Options = [loColLines, loTitles]
      Color = 14811135
      Navigator = False
      ParentFont = False
      ReadOnly = True
      TabOrder = 2
      AutoDropDown = True
      ShowButton = False
      UseTFields = False
      AllowClearKey = False
      ShowMatchText = True
      OnKeyPress = Sonraki
    end
    object wwDBLookupCombo1: TwwDBLookupCombo
      Left = 336
      Top = 18
      Width = 105
      Height = 21
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      DisableThemes = False
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'pkodu'#9'5'#9'pkodu'#9'F')
      DataField = 'perkod'
      DataSource = dm.spuretims
      LookupTable = dm.sppersonel
      LookupField = 'PerKod'
      Options = [loColLines, loTitles]
      Color = 14811135
      Navigator = False
      ParentFont = False
      ReadOnly = True
      TabOrder = 3
      AutoDropDown = True
      ShowButton = False
      UseTFields = False
      AllowClearKey = False
      ShowMatchText = True
      OnKeyPress = Sonraki
    end
  end
  object BitBtn1: TBitBtn
    Left = 471
    Top = 619
    Width = 65
    Height = 31
    Caption = 'Kapat'
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
    OnClick = BitBtn1Click
  end
  object fcButtonGroup1: TfcButtonGroup
    Left = 8
    Top = 620
    Width = 354
    Height = 33
    AutoBold = True
    BevelOuter = bvNone
    BorderStyle = bsSingle
    ButtonClassName = 'TfcShapeBtn'
    ClickStyle = bcsRadioGroup
    ControlSpacing = 1
    Columns = 1
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    Layout = loHorizontal
    MaxControlSize = 0
    TabOrder = 5
    Transparent = False
    OnChange = fcButtonGroup1Change
    object fcButtonGroup1fcShapeBtn1: TfcShapeBtn
      Tag = 1
      Left = 0
      Top = 0
      Width = 87
      Height = 29
      Caption = 'Yeni (*)'
      Color = clBtnFace
      DitherColor = clWhite
      Down = True
      Font.Charset = TURKISH_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      GroupIndex = 1
      NumGlyphs = 0
      ParentClipping = True
      ParentFont = False
      RoundRectBias = 25
      ShadeStyle = fbsHighlight
      TabOrder = 0
      TextOptions.Alignment = taCenter
      TextOptions.VAlignment = vaVCenter
    end
    object fcButtonGroup1fcShapeBtn2: TfcShapeBtn
      Tag = 2
      Left = 88
      Top = 0
      Width = 87
      Height = 29
      Caption = 'Devam (+)'
      Color = clBtnFace
      DitherColor = clWhite
      Font.Charset = TURKISH_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      GroupIndex = 1
      ParentClipping = True
      ParentFont = False
      RoundRectBias = 25
      ShadeStyle = fbsHighlight
      TabOrder = 1
      TextOptions.Alignment = taCenter
      TextOptions.VAlignment = vaVCenter
    end
    object fcButtonGroup1fcShapeBtn3: TfcShapeBtn
      Tag = 3
      Left = 176
      Top = 0
      Width = 87
      Height = 29
      Caption = #199#305'kart (-)'
      Color = clBtnFace
      DitherColor = clWhite
      Font.Charset = TURKISH_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      GroupIndex = 1
      ParentClipping = True
      ParentFont = False
      RoundRectBias = 25
      ShadeStyle = fbsHighlight
      TabOrder = 2
      TextOptions.Alignment = taCenter
      TextOptions.VAlignment = vaVCenter
    end
    object fcButtonGroup1fcShapeBtn4: TfcShapeBtn
      Tag = 4
      Left = 264
      Top = 0
      Width = 86
      Height = 29
      Caption = 'Par'#231'ala (/)'
      Color = clBtnFace
      DitherColor = clWhite
      Font.Charset = TURKISH_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      Enabled = False
      GroupIndex = 1
      ParentClipping = True
      ParentFont = False
      RoundRectBias = 25
      ShadeStyle = fbsHighlight
      TabOrder = 3
      TextOptions.Alignment = taCenter
      TextOptions.VAlignment = vaVCenter
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 656
    Width = 1201
    Height = 19
    Panels = <>
  end
  object GroupBox4: TGroupBox
    Left = 8
    Top = 565
    Width = 529
    Height = 47
    Caption = 'Test Eden Personel'
    TabOrder = 6
    object Label15: TLabel
      Left = 16
      Top = 24
      Width = 71
      Height = 16
      AutoSize = False
      Caption = 'Personel Kodu'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label16: TLabel
      Left = 240
      Top = 24
      Width = 71
      Height = 16
      AutoSize = False
      Caption = 'Personel Kodu'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object wwDBLookupCombo2: TwwDBLookupCombo
      Left = 328
      Top = 16
      Width = 185
      Height = 21
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      DisableThemes = False
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'pismi'#9'25'#9'pismi'#9'F'
        'pkodu'#9'5'#9'pkodu'#9'F'
        'PerKod'#9'10'#9'PerKod'#9'F')
      DataField = 'kperkod'
      DataSource = dm.spuretims
      LookupTable = dm.sppersonel
      LookupField = 'PerKod'
      Options = [loColLines, loTitles]
      Color = 14811135
      Navigator = False
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      AutoDropDown = True
      ShowButton = False
      UseTFields = False
      AllowClearKey = False
      ShowMatchText = True
      OnKeyPress = Sonraki
    end
    object wwDBLookupCombo3: TwwDBLookupCombo
      Left = 96
      Top = 16
      Width = 105
      Height = 21
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      DisableThemes = False
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'pkodu'#9'5'#9'pkodu'#9'F')
      DataField = 'kperkod'
      DataSource = dm.spuretims
      LookupTable = dm.sppersonel
      LookupField = 'PerKod'
      Options = [loColLines, loTitles]
      Color = 14811135
      Navigator = False
      ParentFont = False
      ReadOnly = True
      TabOrder = 1
      AutoDropDown = True
      ShowButton = False
      UseTFields = False
      AllowClearKey = False
      ShowMatchText = True
      OnKeyPress = Sonraki
    end
  end
  object GroupBox5: TGroupBox
    Left = 540
    Top = 0
    Width = 661
    Height = 656
    Caption = #220'retim Emirleri'
    TabOrder = 7
    object Label18: TLabel
      Left = 10
      Top = 25
      Width = 35
      Height = 14
      Caption = #304'lk Tarih'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label19: TLabel
      Left = 10
      Top = 49
      Width = 45
      Height = 14
      Caption = 'Son Tarih'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label20: TLabel
      Left = 10
      Top = 247
      Width = 36
      Height = 14
      Caption = 'Emir No'
    end
    object k2: TShape
      Left = 477
      Top = 23
      Width = 39
      Height = 37
      Brush.Color = clBtnFace
      Pen.Color = 12500670
      Visible = False
    end
    object k1: TShape
      Left = 432
      Top = 23
      Width = 39
      Height = 37
      Brush.Color = clBtnFace
      Pen.Color = 12500670
      Visible = False
    end
    object y1: TLabel
      Left = 432
      Top = 35
      Width = 39
      Height = 14
      Alignment = taCenter
      AutoSize = False
      Caption = '11'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
      Visible = False
    end
    object y2: TLabel
      Left = 477
      Top = 35
      Width = 39
      Height = 14
      Alignment = taCenter
      AutoSize = False
      Caption = '11'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
      Visible = False
    end
    object k3: TShape
      Left = 522
      Top = 23
      Width = 39
      Height = 37
      Brush.Color = clBtnFace
      Pen.Color = 12500670
      Visible = False
    end
    object y3: TLabel
      Left = 522
      Top = 35
      Width = 39
      Height = 14
      Alignment = taCenter
      AutoSize = False
      Caption = '11'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
      Visible = False
    end
    object k4: TShape
      Left = 566
      Top = 23
      Width = 39
      Height = 37
      Brush.Color = clBtnFace
      Pen.Color = 12500670
      Visible = False
    end
    object y4: TLabel
      Left = 566
      Top = 35
      Width = 39
      Height = 14
      Alignment = taCenter
      AutoSize = False
      Caption = '11'
      Font.Charset = TURKISH_CHARSET
      Font.Color = 683509
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
      Visible = False
    end
    object k5: TShape
      Left = 612
      Top = 23
      Width = 39
      Height = 37
      Brush.Color = clBtnFace
      Pen.Color = 12500670
      Visible = False
    end
    object y5: TLabel
      Left = 612
      Top = 35
      Width = 39
      Height = 14
      Alignment = taCenter
      AutoSize = False
      Caption = '11'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clYellow
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
      Visible = False
    end
    object Shape1: TShape
      Left = 583
      Top = 225
      Width = 65
      Height = 50
      Brush.Color = clBtnFace
      Pen.Color = 12500670
    end
    object Label21: TLabel
      Left = 472
      Top = 242
      Width = 109
      Height = 16
      Caption = #220'retim Emri Adet'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblUrEmriAdet: TLabel
      Left = 585
      Top = 238
      Width = 63
      Height = 30
      Alignment = taCenter
      AutoSize = False
      Caption = 'Adet'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlue
      Font.Height = -19
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label4: TLabel
      Left = 243
      Top = 13
      Width = 23
      Height = 14
      Caption = 'Filtre'
    end
    object wwDBGrid1: TwwDBGrid
      Left = 8
      Top = 72
      Width = 641
      Height = 151
      DisableThemes = False
      Selected.Strings = (
        'emirno'#9'6'#9'Emir No'#9#9
        'stokkodu'#9'15'#9'Stok Kodu'#9#9
        'miktar'#9'6'#9'Miktar'#9#9
        'tarih'#9'8'#9'Tarih'#9'F'#9
        'aciklama'#9'50'#9'A'#231#305'klama'#9#9)
      IniAttributes.Delimiter = ';;'
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = True
      Color = 14811135
      DataSource = emirliS
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      KeyOptions = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgCancelOnExit, dgWordWrap]
      ParentFont = False
      TabOrder = 0
      TitleAlignment = taLeftJustify
      TitleFont.Charset = TURKISH_CHARSET
      TitleFont.Color = clBlack
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
      TitleLines = 1
      TitleButtons = True
      UseTFields = False
      OnDblClick = wwDBGrid1DblClick
      object wwDBGrid1IButton: TwwIButton
        Left = 0
        Top = 0
        Width = 13
        Height = 22
        AllowAllUp = True
        Caption = 'X'
      end
    end
    object wwDBGrid2: TwwDBGrid
      Left = 8
      Top = 277
      Width = 641
      Height = 372
      DisableThemes = False
      Selected.Strings = (
        'stokkodu'#9'41'#9'Stok Kodu'#9#9
        'miktar'#9'7'#9'Miktar'#9#9
        'yapilan'#9'10'#9'Yap'#305'lan'#9'F')
      IniAttributes.Delimiter = ';;'
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = True
      Color = 14811135
      DataSource = dsemirlishar
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      KeyOptions = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgCancelOnExit, dgWordWrap]
      ParentFont = False
      TabOrder = 1
      TitleAlignment = taLeftJustify
      TitleFont.Charset = TURKISH_CHARSET
      TitleFont.Color = clBlack
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
      TitleLines = 1
      TitleButtons = True
      UseTFields = False
      OnCalcCellColors = wwDBGrid2CalcCellColors
      object wwDBGrid2IButton: TwwIButton
        Left = 0
        Top = 0
        Width = 13
        Height = 22
        AllowAllUp = True
        Caption = 'X'
      end
    end
    object t1: TwwDBDateTimePicker
      Left = 61
      Top = 21
      Width = 85
      Height = 22
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      CalendarAttributes.PopupYearOptions.StartYear = 2000
      Epoch = 1950
      ShowButton = True
      TabOrder = 2
      DisplayFormat = 'dd-mm-yyyy'
    end
    object t2: TwwDBDateTimePicker
      Left = 61
      Top = 45
      Width = 85
      Height = 22
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      CalendarAttributes.PopupYearOptions.StartYear = 2000
      Epoch = 1950
      ShowButton = True
      TabOrder = 3
      DisplayFormat = 'dd-mm-yyyy'
    end
    object blistele: TBitBtn
      Left = 154
      Top = 22
      Width = 79
      Height = 41
      Caption = 'Listele'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnClick = blisteleClick
    end
    object EmirNok: TEdit
      Left = 51
      Top = 240
      Width = 69
      Height = 22
      TabOrder = 5
      OnKeyPress = EmirNokKeyPress
    end
    object bemirnobul: TBitBtn
      Left = 125
      Top = 238
      Width = 52
      Height = 25
      Caption = 'Se'#231
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 6
      OnClick = bemirnobulClick
    end
    object BitBtn2: TBitBtn
      Left = 181
      Top = 238
      Width = 47
      Height = 25
      Caption = 'Yenile'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 7
      OnClick = BitBtn2Click
    end
    object bmodeldegistir: TBitBtn
      Left = 233
      Top = 238
      Width = 62
      Height = 25
      Caption = 'Mod.De'#287'.'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 8
      OnClick = bmodeldegistirClick
    end
    object SonYazilanEmirNo: TMemo
      Left = 328
      Top = 96
      Width = 129
      Height = 41
      TabOrder = 9
      Visible = False
      WordWrap = False
    end
    object bmakinano: TBitBtn
      Left = 300
      Top = 238
      Width = 64
      Height = 25
      Caption = 'Makine No'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 10
      OnClick = bmakinanoClick
    end
    object CDRomk: TMemo
      Left = 168
      Top = 296
      Width = 185
      Height = 89
      Lines.Strings = (
        'CDRomk')
      TabOrder = 11
      Visible = False
    end
    object bbekleme: TBitBtn
      Left = 370
      Top = 238
      Width = 64
      Height = 25
      Caption = 'Bekleme'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 12
      OnClick = bbeklemeClick
    end
    object cbDegisen: TCheckBox
      Tag = 1101
      Left = 244
      Top = 53
      Width = 97
      Height = 17
      Caption = 'De'#287'i'#351'en Makina'
      TabOrder = 13
    end
    object lcTur: TwwDBLookupCombo
      Left = 241
      Top = 28
      Width = 137
      Height = 22
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      DisableThemes = False
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'Baslik'#9'20'#9'Baslik'#9'F')
      LookupTable = adoTur
      LookupField = 'Ref'
      Style = csDropDownList
      Color = clWhite
      Navigator = False
      ParentFont = False
      TabOrder = 14
      AutoDropDown = True
      ShowButton = True
      UseTFields = False
      AllowClearKey = True
      ShowMatchText = True
      OnCloseUp = lcTurCloseUp
    end
  end
  object bbitir: TBitBtn
    Left = 366
    Top = 620
    Width = 99
    Height = 30
    Caption = 'B'#304'T'#304'R - F2'
    Font.Charset = TURKISH_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 8
    OnClick = bbitirClick
  end
  object PHizliMontaj: TPanel
    Left = 242
    Top = 233
    Width = 293
    Height = 325
    TabOrder = 9
    Visible = False
    object Label10: TLabel
      Left = 24
      Top = 18
      Width = 35
      Height = 14
      Caption = 'Seri No'
    end
    object Bevel1: TBevel
      Left = 24
      Top = 38
      Width = 248
      Height = 2
    end
    object BHSil: TSpeedButton
      Left = 67
      Top = 297
      Width = 62
      Height = 22
      Caption = 'Sil'
      OnClick = BHSilClick
    end
    object bHKapat: TSpeedButton
      Left = 200
      Top = 297
      Width = 60
      Height = 22
      Caption = 'Kapat'
      OnClick = bHKapatClick
    end
    object HSeriNok: TEdit
      Left = 70
      Top = 9
      Width = 193
      Height = 22
      CharCase = ecUpperCase
      TabOrder = 0
      OnKeyPress = HSeriNokKeyPress
    end
    object Hlistek: TListBox
      Left = 69
      Top = 46
      Width = 193
      Height = 244
      ItemHeight = 14
      TabOrder = 1
    end
  end
  object adetk: TStaticText
    Left = 485
    Top = 184
    Width = 45
    Height = 46
    Alignment = taRightJustify
    AutoSize = False
    BiDiMode = bdLeftToRight
    Caption = '0'
    Color = clBtnFace
    Font.Charset = TURKISH_CHARSET
    Font.Color = clRed
    Font.Height = -37
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentBiDiMode = False
    ParentColor = False
    ParentFont = False
    TabOrder = 10
    Transparent = False
  end
  object cbUstGrup: TwwDBLookupCombo
    Left = 54
    Top = 187
    Width = 96
    Height = 20
    AutoSize = False
    Font.Charset = TURKISH_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    DisableThemes = False
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'isim'#9'50'#9'isim'#9#9)
    LookupTable = dm.aqUstGrup
    LookupField = 'id'
    Style = csDropDownList
    Color = clInfoBk
    Navigator = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 13
    AutoDropDown = True
    ShowButton = False
    UseTFields = False
    AllowClearKey = True
    ShowMatchText = True
  end
  object cbGrup: TwwDBLookupCombo
    Left = 54
    Top = 208
    Width = 96
    Height = 20
    AutoSize = False
    Font.Charset = TURKISH_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    DisableThemes = False
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'isim'#9'50'#9'isim'#9'F'#9)
    LookupTable = dm.aqGrup
    LookupField = 'id'
    Style = csDropDownList
    Color = clInfoBk
    Navigator = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 14
    AutoDropDown = True
    ShowButton = False
    UseTFields = False
    AllowClearKey = True
    ShowMatchText = True
  end
  object MainMenu1: TMainMenu
    Left = 496
    Top = 6
    object Dosya1: TMenuItem
      Caption = 'Dosya'
      object Konumlan1: TMenuItem
        Caption = 'Konumlan'
        ShortCut = 114
        OnClick = Konumlan1Click
      end
      object Yeni1: TMenuItem
        Caption = 'Yeni'
        ShortCut = 115
        OnClick = Yeni1Click
      end
      object Devam1: TMenuItem
        Caption = 'Devam'
        ShortCut = 118
        OnClick = Devam1Click
      end
      object kart1: TMenuItem
        Caption = #199#305'kart'
        ShortCut = 117
        OnClick = kart1Click
      end
      object Parala1: TMenuItem
        Tag = 1102
        Caption = 'Par'#231'ala'
        Enabled = False
        ShortCut = 119
        Visible = False
        OnClick = Parala1Click
      end
      object Bitir1: TMenuItem
        Caption = 'Bitir'
        ShortCut = 113
        OnClick = Bitir1Click
      end
      object Yazdr1: TMenuItem
        Caption = 'Yazd'#305'r'
        ShortCut = 120
        OnClick = Yazdr1Click
      end
      object TopluYazdir1: TMenuItem
        Caption = 'Toplu Yazd'#305'r'
        OnClick = TopluYazdir1Click
      end
    end
  end
  object emirhar: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'emirno'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from uremrihar'
      'where emirno=:emirno')
    Left = 640
    Top = 31
  end
  object stoksor: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'serinos'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      
        'select f.serinos, f.stokkod ,f.makinano,s.stokkodu,s.cinsi ,S.Gr' +
        'upId,F.UrEmriHarid,s.grup,s.model,s.agrup,f.gecicimakinano from ' +
        'fatharhar f ,stok s'
      'where (f.serinos=:serinos) and (s.stokkod=f.stokkod)')
    Left = 352
    Top = 6
  end
  object fathar: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'bilisno'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from fathar '
      'where bilisno=:bilisno')
    Left = 576
    Top = 32
  end
  object makno: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'makinano'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      
        'SELECT     uretim.makinano, uretim.uretimno, stok.stokkod, stok.' +
        'cinsi, uretim.tarih, perkart.personelno, perkart.adi, perkart.so' +
        'yadi'
      'FROM         uretim INNER JOIN'
      
        '                      stok ON uretim.uretimkod = stok.stokkod IN' +
        'NER JOIN'
      '                      perkart ON uretim.perkod = perkart.perkod'
      'WHERE     (uretim.makinano = :makinano)')
    Left = 424
    Top = 63
  end
  object makiancount: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'makinano'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      'select stok.Grup from fatharhar, stok'
      'where (stok.stokkod=fatharhar.stokkod) and (makinano=:makinano)'
      'group by stok.Grup'
      '')
    Left = 256
    Top = 392
  end
  object Tamalandi: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'emirno'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * FRom  Uremrihar'
      'Where (urunck='#39'C'#39') and emirno=:emirno')
    Left = 456
    Top = 184
  end
  object versionb: TADOQuery
    Connection = dm.connect
    Parameters = <>
    SQL.Strings = (
      'select * from servis')
    Left = 464
    Top = 476
  end
  object kontrol: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'stokkod'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'makinano'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      'select fatharhar.serinos, fatharhar.makinano from fatharhar'
      'where (stokkod=:stokkod) and (makinano=:makinano)  ')
    Left = 344
    Top = 185
  end
  object recetemiktar: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'partino'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'stokkod'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from recetehar'
      'where (receteid=:partino) and (stokkod=:stokkod)')
    Left = 272
    Top = 185
  end
  object emirli: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    AfterScroll = emirliAfterScroll
    Parameters = <
      item
        Name = 'ciktidepo'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 't1'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end
      item
        Name = 't2'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end>
    SQL.Strings = (
      
        'select *,UretimSinirsiz=(Select UretimSinirsiz From Stok Where S' +
        'tokkodu=UrEmri.Stokkodu) from Uremri'
      
        'Where  ciktidepo=:ciktidepo and tarih between :t1 and :t2 and Ti' +
        'pi is null'
      'order by emirno')
    Left = 572
    Top = 96
  end
  object emirlishar: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    AfterOpen = emirlisharAfterOpen
    DataSource = emirliS
    Parameters = <
      item
        Name = 'Emirno'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      
        'select OtomatikOkutma= isnull(OtomatikOkutma,0),* from uremrihar' +
        '  WITH (NOLOCK,INDEX(Emirno)) '
      
        'Where (select top 1 izlemeturu from stok where stok.stokkod=urem' +
        'rihar.stokkod)=2 and (isnull(UretimdeOkutma,0)=0) and emirno=:Em' +
        'irno'
      'order by urunck')
    Left = 572
    Top = 304
  end
  object emirliS: TDataSource
    DataSet = emirli
    Left = 644
    Top = 96
  end
  object dsemirlishar: TDataSource
    DataSet = emirlishar
    Left = 636
    Top = 304
  end
  object durum: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'emirno'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from uremri'
      'Where emirno=:emirno')
    Left = 16
    Top = 186
  end
  object bul: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select makinano,stokkod,'
      
        '       uretimkod=(select top 1 uretimkod from uretim where ureti' +
        'm.makinano=fatharhar.makinano),'
      
        '       uretimno=(select top 1 uretimno from uretim where uretim.' +
        'makinano=fatharhar.makinano) from fatharhar'
      'where serinos='#39'H100'#39)
    Left = 704
    Top = 34
  end
  object yazici: TRAWPrinter
    TrControl = True
    Left = 494
    Top = 112
  end
  object EmirListesi: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'emirno'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      
        'select top 1 * from unity_emirlistesi where aktarilanuremrino=:e' +
        'mirno and isnull(eslestirilenadet,0)<>adet'
      'order by acil desc')
    Left = 580
    Top = 376
  end
  object StokkodBul: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'serinos'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'select stokkod from fatharhar'
      'Where serinos=:serinos')
    Left = 256
    Top = 338
  end
  object EmirListesiEksilt: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'siparisharid'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from unity_emirlistesi'
      'where siparisharid=:siparisharid')
    Left = 652
    Top = 376
  end
  object FatharharBul: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'serinos'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'select * from fatharhar'
      'where serinos=:serinos')
    Left = 580
    Top = 432
  end
  object NoteBookKasaNoBul: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'makinano'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      
        'select serinos from fatharhar where (select grup from stok where' +
        ' stok.stokkod=fatharhar.stokkod)='#39'70'#39' and makinano=:makinano')
    Left = 96
    Top = 186
  end
  object UremriHar_Artir: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'id'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'update uremrihar'
      'set yapilan=isnull(yapilan,0)+1'
      'where id=:id')
    Left = 652
    Top = 432
  end
  object UremriHar_Eksilt: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'id'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'update uremrihar'
      'set yapilan=yapilan-1'
      'where id=:id')
    Left = 580
    Top = 488
  end
  object YaziciKontrol: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'makinano'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      
        'select U.uretimno,S.Stokkodu,Marka=M.isim,S.MarkaId,S.UstGrupId,' +
        'S.GrupId'
      'from uretim U'
      'join Stok S on (S.Stokkod=U.uretimkod)'
      'Left Join stMarkaTanim M on (M.id=S.UreticiMarkaId)'
      'where U.makinano=:makinano')
    Left = 676
    Top = 568
  end
  object YapaniYaz: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'update uretim'
      'set perkod=:perkod,durum=:durum'
      'where makinano=@makinano'
      '')
    Left = 716
    Top = 568
  end
  object ModelDegistir_Fatharhar: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'stokkod'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'serinos'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'update fatharhar'
      'set stokkod=:stokkod'
      'where serinos=:serinos')
    Left = 884
    Top = 344
  end
  object ModelDegistir_StokkodBul: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'emirno'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from uremrihar'
      'where emirno=:emirno'
      'order by urunck')
    Left = 884
    Top = 304
  end
  object ModelDegistir_Uretim: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'uretimno'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'uretimkod'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'makinano'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      'update uretim'
      'set uretimno=:uretimno,uretimkod=:uretimkod'
      'where makinano=:makinano'
      '')
    Left = 884
    Top = 384
  end
  object MakineListesi: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'Uretimno'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'select makinano from uretim where uretimno=:Uretimno')
    Left = 876
    Top = 440
  end
  object ServerTarihQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'serinos'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'SELECT GETDATE()')
    Left = 424
    Top = 6
  end
  object TimerMontajDurum: TTimer
    Enabled = False
    Interval = 60000
    OnTimer = TimerMontajDurumTimer
    Left = 580
    Top = 192
  end
  object MontajDurumQ: TADOQuery
    Connection = dm.connect
    Parameters = <>
    SQL.Strings = (
      'select perkod,count(*) as sayi from uretim'
      
        'where tarih>='#39'18.10.2005'#39' and tarih<='#39'21.10.2005'#39' and (select gr' +
        'up from stok where stok.stokkod=uretim.uretimkod)=5 and paket is' +
        ' null and  montajtarih is null and testt is null'
      'and (perkod=125 or perkod=126 or perkod=127 or perkod=153)'
      'group by perkod')
    Left = 764
    Top = 464
  end
  object spHizliUretim: TADOStoredProc
    Connection = dm.connect
    ProcedureName = 'sp_hizli_uretim;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@serinosayi'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = Null
      end
      item
        Name = '@perkod'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@emirno'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@makinestokkod'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@serinolar'
        Attributes = [paNullable]
        DataType = ftString
        Size = 500
        Value = Null
      end
      item
        Name = '@Out_Makinano'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdOutput
        Size = 10
        Value = Null
      end
      item
        Name = '@Out_HataliSerino'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdOutput
        Size = 50
        Value = Null
      end>
    Left = 506
    Top = 241
  end
  object isletimsisteminumarasibul: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'makinano'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      
        'select stokkodu=dbo.GetStokkodu(fatharhar.stokkod),serinos from ' +
        'fatharhar where makinano=:makinano and (select GrupId from stok ' +
        'where stok.stokkod=fatharhar.stokkod)=49')
    Left = 256
    Top = 286
  end
  object VirusSeriNoBulQ: TADOQuery
    Connection = dm.connect
    Parameters = <>
    Left = 193
    Top = 184
  end
  object rprn1: TRAWPrinter
    PrinterName = 'paketyazici'
    DocumentTitle = 'paketEtiketi'
    TrControl = True
    Left = 400
    Top = 304
  end
  object YazdirildiYap: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'makinano'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      'update uretim '
      'set paket='#39'E'#39',paktar=getdate(),durum='#39'K'#39'  '
      'where makinano=:makinano')
    Left = 368
    Top = 312
  end
  object Query: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    CommandTimeout = 300
    Parameters = <
      item
        Name = 'EmirNo'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      
        'select distinct e.partino,e.emirno,e.aciklama,e.stokkodu,e.cinsi' +
        ', h.stokkod,h.cinsi,h.stokkodu,h.urunck from uremri e, uremrihar' +
        ' h'
      
        'where (e.emirno=h.emirno) and (h.urunck='#39'C'#39') and (e.emirno=:Emir' +
        'No)')
    Left = 288
    Top = 6
  end
  object GeciciMakina: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    CommandTimeout = 300
    Parameters = <
      item
        Name = 'gecicimakinano'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      
        'select Serinos,Stokkod from fatharhar WITH(NOLOCK,INDEX(GeciciMa' +
        'kinano))'
      'Where gecicimakinano=:gecicimakinano')
    Left = 368
    Top = 386
  end
  object GeciciMakinaClone: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    CommandTimeout = 300
    Parameters = <
      item
        Name = 'gecicimakinano'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select Serinos,Stokkod from fatharhar'
      'Where gecicimakinano=:gecicimakinano')
    Left = 432
    Top = 386
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '*.txt'
    Filter = 'Text Files|*.txt'
    Left = 290
    Top = 314
  end
  object ppGaranti: TppReport
    AutoStop = False
    DataPipeline = ppDBGaranti
    PrinterSetup.BinName = 'Default'
    PrinterSetup.DocumentName = 'Report'
    PrinterSetup.PaperName = 'FanFold 8.5 x 5.5 in'
    PrinterSetup.PrinterName = 'Default'
    PrinterSetup.mmMarginBottom = 6350
    PrinterSetup.mmMarginLeft = 6350
    PrinterSetup.mmMarginRight = 6350
    PrinterSetup.mmMarginTop = 6350
    PrinterSetup.mmPaperHeight = 140000
    PrinterSetup.mmPaperWidth = 215000
    PrinterSetup.PaperSize = 173
    Units = utMillimeters
    DeviceType = 'Printer'
    EmailSettings.ReportFormat = 'PDF'
    ModalCancelDialog = False
    ModalPreview = False
    OutlineSettings.CreateNode = True
    OutlineSettings.CreatePageNodes = True
    OutlineSettings.Enabled = True
    OutlineSettings.Visible = True
    ShowCancelDialog = False
    ShowPrintDialog = False
    TextSearchSettings.DefaultString = '<FindText>'
    TextSearchSettings.Enabled = True
    Left = 722
    Top = 106
    Version = '10.02'
    mmColumnWidth = 202300
    DataPipelineName = 'ppDBGaranti'
    object ppDetailBand1: TppDetailBand
      mmBottomOffset = 0
      mmHeight = 110596
      mmPrintPosition = 0
      object ppDBText1: TppDBText
        UserName = 'DBText1'
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        DataField = 'GarantiAdi'
        DataPipeline = ppDBGaranti
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Name = 'Courier New'
        Font.Size = 8
        Font.Style = []
        Transparent = True
        DataPipelineName = 'ppDBGaranti'
        mmHeight = 3006
        mmLeft = 132027
        mmTop = 19315
        mmWidth = 20108
        BandType = 4
      end
      object ppDBText2: TppDBText
        UserName = 'DBText2'
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        DataField = 'BelgeNo'
        DataPipeline = ppDBGaranti
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Name = 'Courier New'
        Font.Size = 8
        Font.Style = []
        Transparent = True
        DataPipelineName = 'ppDBGaranti'
        mmHeight = 3006
        mmLeft = 154517
        mmTop = 19579
        mmWidth = 19844
        BandType = 4
      end
      object ppDBText3: TppDBText
        UserName = 'DBText3'
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        DataField = 'BelgeTarihi'
        DataPipeline = ppDBGaranti
        DisplayFormat = 'dd.mm.yyyy'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Name = 'Courier New'
        Font.Size = 8
        Font.Style = []
        Transparent = True
        DataPipelineName = 'ppDBGaranti'
        mmHeight = 3006
        mmLeft = 176213
        mmTop = 19579
        mmWidth = 16140
        BandType = 4
      end
      object ppDBText4: TppDBText
        UserName = 'DBText4'
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        DataField = 'FirmaAdi'
        DataPipeline = ppDBGaranti
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Name = 'Courier New'
        Font.Size = 8
        Font.Style = []
        Transparent = True
        DataPipelineName = 'ppDBGaranti'
        mmHeight = 3006
        mmLeft = 34660
        mmTop = 10583
        mmWidth = 57415
        BandType = 4
      end
      object ppDBText5: TppDBText
        UserName = 'DBText5'
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        DataField = 'Adres'
        DataPipeline = ppDBGaranti
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Name = 'Courier New'
        Font.Size = 8
        Font.Style = []
        Transparent = True
        DataPipelineName = 'ppDBGaranti'
        mmHeight = 3006
        mmLeft = 34660
        mmTop = 14023
        mmWidth = 64823
        BandType = 4
      end
      object ppDBText6: TppDBText
        UserName = 'DBText6'
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        DataField = 'ilceil'
        DataPipeline = ppDBGaranti
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Name = 'Courier New'
        Font.Size = 8
        Font.Style = []
        Transparent = True
        DataPipelineName = 'ppDBGaranti'
        mmHeight = 3006
        mmLeft = 34660
        mmTop = 17463
        mmWidth = 64823
        BandType = 4
      end
      object ppDBText7: TppDBText
        UserName = 'DBText7'
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        DataField = 'Tel'
        DataPipeline = ppDBGaranti
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Name = 'Courier New'
        Font.Size = 8
        Font.Style = []
        Transparent = True
        DataPipelineName = 'ppDBGaranti'
        mmHeight = 3006
        mmLeft = 34660
        mmTop = 20902
        mmWidth = 32808
        BandType = 4
      end
      object ppDBText8: TppDBText
        UserName = 'DBText8'
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        DataField = 'Fax'
        DataPipeline = ppDBGaranti
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Name = 'Courier New'
        Font.Size = 8
        Font.Style = []
        Transparent = True
        DataPipelineName = 'ppDBGaranti'
        mmHeight = 3006
        mmLeft = 34660
        mmTop = 24077
        mmWidth = 32808
        BandType = 4
      end
      object ppDBText9: TppDBText
        UserName = 'DBText9'
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        DataField = 'Cinsi'
        DataPipeline = ppDBGaranti
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Name = 'Courier New'
        Font.Size = 8
        Font.Style = []
        Transparent = True
        DataPipelineName = 'ppDBGaranti'
        mmHeight = 3006
        mmLeft = 34660
        mmTop = 61913
        mmWidth = 77788
        BandType = 4
      end
      object ppDBText10: TppDBText
        UserName = 'DBText10'
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        DataField = 'Serinos'
        DataPipeline = ppDBGaranti
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Name = 'Courier New'
        Font.Size = 8
        Font.Style = []
        Transparent = True
        DataPipelineName = 'ppDBGaranti'
        mmHeight = 3006
        mmLeft = 34660
        mmTop = 69056
        mmWidth = 77523
        BandType = 4
      end
      object ppDBText11: TppDBText
        UserName = 'DBText11'
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        DataField = 'UreticiKodu'
        DataPipeline = ppDBGaranti
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Name = 'Courier New'
        Font.Size = 8
        Font.Style = []
        Transparent = True
        DataPipelineName = 'ppDBGaranti'
        mmHeight = 3006
        mmLeft = 125677
        mmTop = 61913
        mmWidth = 28840
        BandType = 4
      end
      object ppDBText12: TppDBText
        UserName = 'DBText12'
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        DataField = 'UreticiSatisKodu'
        DataPipeline = ppDBGaranti
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Name = 'Courier New'
        Font.Size = 8
        Font.Style = []
        Transparent = True
        DataPipelineName = 'ppDBGaranti'
        mmHeight = 3006
        mmLeft = 155840
        mmTop = 61913
        mmWidth = 34396
        BandType = 4
      end
      object ppDBText13: TppDBText
        UserName = 'DBText13'
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        DataField = 'Stokkodu'
        DataPipeline = ppDBGaranti
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Name = 'Courier New'
        Font.Size = 8
        Font.Style = []
        Transparent = True
        DataPipelineName = 'ppDBGaranti'
        mmHeight = 3006
        mmLeft = 34660
        mmTop = 65617
        mmWidth = 77788
        BandType = 4
      end
      object ppLabel1: TppLabel
        UserName = 'OS'
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        Caption = 'OS :'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Courier New'
        Font.Size = 8
        Font.Style = []
        Transparent = True
        mmHeight = 3006
        mmLeft = 125677
        mmTop = 65617
        mmWidth = 6773
        BandType = 4
      end
      object ppLabel2: TppLabel
        UserName = 'VS'
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        Caption = 'VS :'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Courier New'
        Font.Size = 8
        Font.Style = []
        Transparent = True
        mmHeight = 3006
        mmLeft = 125942
        mmTop = 69056
        mmWidth = 6773
        BandType = 4
      end
      object ppDBText14: TppDBText
        UserName = 'DBText14'
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        DataField = 'OsSerino'
        DataPipeline = ppDBGaranti
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Name = 'Courier New'
        Font.Size = 8
        Font.Style = []
        Transparent = True
        DataPipelineName = 'ppDBGaranti'
        mmHeight = 3006
        mmLeft = 132027
        mmTop = 65617
        mmWidth = 58208
        BandType = 4
      end
      object ppDBText15: TppDBText
        UserName = 'DBText15'
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        DataField = 'VsSerino'
        DataPipeline = ppDBGaranti
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Name = 'Courier New'
        Font.Size = 8
        Font.Style = []
        Transparent = True
        DataPipelineName = 'ppDBGaranti'
        mmHeight = 3683
        mmLeft = 132292
        mmTop = 68263
        mmWidth = 57679
        BandType = 4
      end
      object ppDBText16: TppDBText
        UserName = 'DBText16'
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        DataField = 'Marka'
        DataPipeline = ppDBGaranti
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Name = 'Courier New'
        Font.Size = 8
        Font.Style = []
        Transparent = True
        DataPipelineName = 'ppDBGaranti'
        mmHeight = 3006
        mmLeft = 110861
        mmTop = 19315
        mmWidth = 16669
        BandType = 4
      end
      object ppLabel3: TppLabel
        UserName = 'OS1'
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        Caption = 'X'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Courier New'
        Font.Size = 8
        Font.Style = []
        Transparent = True
        mmHeight = 3006
        mmLeft = 107686
        mmTop = 19050
        mmWidth = 1693
        BandType = 4
      end
    end
    object ppParameterList1: TppParameterList
    end
  end
  object ppDBGaranti: TppDBPipeline
    DataSource = dsGarantiKarti
    UserName = 'DBGaranti'
    Left = 722
    Top = 157
    object ppDBGarantippField1: TppField
      FieldAlias = 'Serinos'
      FieldName = 'Serinos'
      FieldLength = 50
      DisplayWidth = 50
      Position = 0
    end
    object ppDBGarantippField2: TppField
      FieldAlias = 'Stokkodu'
      FieldName = 'Stokkodu'
      FieldLength = 25
      DisplayWidth = 25
      Position = 1
    end
    object ppDBGarantippField3: TppField
      FieldAlias = 'Cinsi'
      FieldName = 'Cinsi'
      FieldLength = 50
      DisplayWidth = 50
      Position = 2
    end
    object ppDBGarantippField4: TppField
      FieldAlias = 'Barkod'
      FieldName = 'Barkod'
      FieldLength = 13
      DisplayWidth = 13
      Position = 3
    end
    object ppDBGarantippField5: TppField
      Alignment = taRightJustify
      FieldAlias = 'UreticiMarkaId'
      FieldName = 'UreticiMarkaId'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 4
    end
    object ppDBGarantippField6: TppField
      FieldAlias = 'UreticiKodu'
      FieldName = 'UreticiKodu'
      FieldLength = 50
      DisplayWidth = 50
      Position = 5
    end
    object ppDBGarantippField7: TppField
      FieldAlias = 'UreticiSatisKodu'
      FieldName = 'UreticiSatisKodu'
      FieldLength = 50
      DisplayWidth = 50
      Position = 6
    end
    object ppDBGarantippField8: TppField
      FieldAlias = 'BelgeNo'
      FieldName = 'BelgeNo'
      FieldLength = 20
      DisplayWidth = 20
      Position = 7
    end
    object ppDBGarantippField9: TppField
      FieldAlias = 'BelgeTarihi'
      FieldName = 'BelgeTarihi'
      FieldLength = 0
      DataType = dtDateTime
      DisplayWidth = 18
      Position = 8
    end
    object ppDBGarantippField10: TppField
      FieldAlias = 'GarantiAdi'
      FieldName = 'GarantiAdi'
      FieldLength = 20
      DisplayWidth = 20
      Position = 9
    end
    object ppDBGarantippField11: TppField
      Alignment = taRightJustify
      FieldAlias = 'Ref'
      FieldName = 'Ref'
      FieldLength = 0
      DataType = dtLongint
      DisplayWidth = 10
      Position = 10
    end
    object ppDBGarantippField12: TppField
      Alignment = taRightJustify
      FieldAlias = 'MarkaId'
      FieldName = 'MarkaId'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 11
    end
    object ppDBGarantippField13: TppField
      FieldAlias = 'FirmaAdi'
      FieldName = 'FirmaAdi'
      FieldLength = 60
      DisplayWidth = 60
      Position = 12
    end
    object ppDBGarantippField14: TppField
      FieldAlias = 'Adres'
      FieldName = 'Adres'
      FieldLength = 100
      DisplayWidth = 100
      Position = 13
    end
    object ppDBGarantippField15: TppField
      FieldAlias = 'ilce'
      FieldName = 'ilce'
      FieldLength = 25
      DisplayWidth = 25
      Position = 14
    end
    object ppDBGarantippField16: TppField
      FieldAlias = 'il'
      FieldName = 'il'
      FieldLength = 25
      DisplayWidth = 25
      Position = 15
    end
    object ppDBGarantippField17: TppField
      FieldAlias = 'Tel'
      FieldName = 'Tel'
      FieldLength = 15
      DisplayWidth = 15
      Position = 16
    end
    object ppDBGarantippField18: TppField
      FieldAlias = 'Fax'
      FieldName = 'Fax'
      FieldLength = 15
      DisplayWidth = 15
      Position = 17
    end
    object ppDBGarantippField19: TppField
      FieldAlias = 'ilceil'
      FieldName = 'ilceil'
      FieldLength = 53
      DisplayWidth = 53
      Position = 18
    end
    object ppDBGarantippField20: TppField
      FieldAlias = 'Marka'
      FieldName = 'Marka'
      FieldLength = 50
      DisplayWidth = 50
      Position = 19
    end
    object ppDBGarantippField21: TppField
      FieldAlias = 'OsStokkodu'
      FieldName = 'OsStokkodu'
      FieldLength = 25
      DisplayWidth = 25
      Position = 20
    end
    object ppDBGarantippField22: TppField
      FieldAlias = 'OsSerino'
      FieldName = 'OsSerino'
      FieldLength = 50
      DisplayWidth = 50
      Position = 21
    end
    object ppDBGarantippField23: TppField
      FieldAlias = 'VsStokkodu'
      FieldName = 'VsStokkodu'
      FieldLength = 25
      DisplayWidth = 25
      Position = 22
    end
    object ppDBGarantippField24: TppField
      FieldAlias = 'VsSerino'
      FieldName = 'VsSerino'
      FieldLength = 50
      DisplayWidth = 50
      Position = 23
    end
  end
  object spGarantiKarti: TADOStoredProc
    Connection = dm.connect
    CursorType = ctStatic
    EnableBCD = False
    ProcedureName = 'sp_GarantiKarti;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@MakinaNo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = '150089800806260001'
      end>
    Prepared = True
    Left = 786
    Top = 108
  end
  object dsGarantiKarti: TDataSource
    DataSet = spGarantiKarti
    Left = 790
    Top = 155
  end
  object ExtraOptions1: TExtraOptions
    About = 'TExtraDevices 3.00'
    HTML.ItemsToExport = [reText, reImage, reLine, reShape, reRTF, reBarCode, reCheckBox]
    HTML.BackLink = '&lt&lt'
    HTML.ForwardLink = '&gt&gt'
    HTML.ShowLinks = True
    HTML.UseTextFileName = False
    HTML.ZoomableImages = False
    HTML.Visible = True
    HTML.PixelFormat = pf8bit
    HTML.SingleFileOutput = False
    XHTML.ItemsToExport = [reText, reImage, reLine, reShape, reRTF, reBarCode, reCheckBox]
    XHTML.BackLink = '&lt&lt'
    XHTML.ForwardLink = '&gt&gt'
    XHTML.ShowLinks = True
    XHTML.UseTextFileName = False
    XHTML.ZoomableImages = False
    XHTML.Visible = True
    XHTML.PixelFormat = pf8bit
    XHTML.SingleFileOutput = False
    RTF.ItemsToExport = [reText, reImage, reLine, reShape, reRTF, reBarCode, reCheckBox]
    RTF.Visible = True
    RTF.RichTextAsImage = False
    RTF.UseTextBox = True
    RTF.PixelFormat = pf8bit
    RTF.PixelsPerInch = 96
    Lotus.ItemsToExport = [reText, reImage, reLine, reShape, reRTF, reBarCode, reCheckBox]
    Lotus.Visible = True
    Lotus.ColSpacing = 16934
    Quattro.ItemsToExport = [reText, reImage, reLine, reShape, reRTF, reBarCode, reCheckBox]
    Quattro.Visible = True
    Quattro.ColSpacing = 16934
    Excel.ItemsToExport = [reText, reImage, reLine, reShape, reRTF, reBarCode, reCheckBox]
    Excel.Visible = True
    Excel.ColSpacing = 16934
    Excel.RowSizing = False
    Excel.AutoConvertToNumber = True
    Graphic.ItemsToExport = [reText, reImage, reLine, reShape, reRTF, reBarCode, reCheckBox]
    Graphic.PixelFormat = pf8bit
    Graphic.UseTextFileName = False
    Graphic.Visible = True
    Graphic.PixelsPerInch = 96
    Graphic.GrayScale = False
    PDF.ItemsToExport = [reText, reImage, reLine, reShape, reRTF, reBarCode, reCheckBox]
    PDF.FastCompression = False
    PDF.CompressImages = True
    PDF.ScaleImages = True
    PDF.Visible = True
    PDF.RichTextAsImage = False
    PDF.RichEditPixelFormat = pf1bit
    PDF.PixelFormat = pf24bit
    PDF.PixelsPerInch = 96
    PDF.Permissions = [ppPrint, ppModify, ppCopy, ppModifyAnnot]
    PDF.ViewerPreferences = []
    PDF.AutoEmbedFonts = True
    PDF.ImageFormat = riBitmap
    DotMatrix.ItemsToExport = [reText, reImage, reLine, reShape, reRTF, reBarCode, reCheckBox]
    DotMatrix.Visible = True
    DotMatrix.CharsPerInch = cs10CPI
    DotMatrix.LinesPerInch = ls6LPI
    DotMatrix.Port = 'LPT1'
    DotMatrix.ContinousPaper = True
    DotMatrix.PrinterType = ptEpson
    Left = 662
    Top = 151
  end
  object adoTur: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from TblSiparisTur order by sira')
    Left = 736
    Top = 395
  end
  object aqSerinosuzGiris: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'Select * from TblSerinosuzGiris')
    Left = 176
    Top = 441
  end
  object aqEsnekList: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      
        'Select E.Perkod From Per_EsnekPerhar E Join Perkart P ON(E.Perko' +
        'd=P.Perkod and  P.Aktif='#39'A'#39') '
      
        'Where (isnull(E.GeriCeken,0)=0 and isnull(E.istekiptaleden,0)=0)' +
        ' and istekOnaylayan is not null')
    Left = 398
    Top = 204
  end
  object aqSeriNoDuzelt: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'Select * from TblSeriNoDuzelt')
    Left = 172
    Top = 392
  end
  object ppEtiket: TppReport
    PrinterSetup.BinName = 'Default'
    PrinterSetup.DocumentName = 'Kasa Barkodu'
    PrinterSetup.PaperName = 'Custom'
    PrinterSetup.PrinterName = 'Screen'
    PrinterSetup.mmMarginBottom = 0
    PrinterSetup.mmMarginLeft = 0
    PrinterSetup.mmMarginRight = 0
    PrinterSetup.mmMarginTop = 0
    PrinterSetup.mmPaperHeight = 30480
    PrinterSetup.mmPaperWidth = 101600
    PrinterSetup.PaperSize = 256
    CachePages = True
    DeviceType = 'Printer'
    EmailSettings.ReportFormat = 'PDF'
    ModalCancelDialog = False
    ModalPreview = False
    OutlineSettings.CreateNode = True
    OutlineSettings.CreatePageNodes = True
    OutlineSettings.Enabled = True
    OutlineSettings.Visible = True
    ShowCancelDialog = False
    ShowPrintDialog = False
    TextSearchSettings.DefaultString = '<FindText>'
    TextSearchSettings.Enabled = True
    Left = 859
    Top = 142
    Version = '10.02'
    mmColumnWidth = 71120
    object ppDetailBand3: TppDetailBand
      PrintHeight = phDynamic
      mmBottomOffset = 0
      mmHeight = 30163
      mmPrintPosition = 0
      object ppStokkodu: TppLabel
        UserName = 'Stokkodu'
        AutoSize = False
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        Caption = 'Stokkodu'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = [fsBold]
        TextAlignment = taCentered
        Transparent = True
        mmHeight = 4233
        mmLeft = 27517
        mmTop = 1852
        mmWidth = 48419
        BandType = 4
      end
      object ppBarCode2: TppBarCode
        UserName = 'Barkod'
        AutoEncode = True
        BarCodeType = bcCode128
        BarColor = clWindowText
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        Data = 'PAK0676445'
        Alignment = taCenter
        AutoSize = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Name = 'Arial'
        Font.Size = 6
        Font.Style = [fsBold]
        Transparent = True
        mmHeight = 6350
        mmLeft = 27781
        mmTop = 6085
        mmWidth = 37835
        BandType = 4
        mmBarWidth = 254
        mmWideBarRatio = 68580
      end
      object ppLabel13: TppLabel
        UserName = 'Stokkodu1'
        AutoSize = False
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 8
        Font.Style = []
        Transparent = True
        mmHeight = 3704
        mmLeft = 28046
        mmTop = 13229
        mmWidth = 21960
        BandType = 4
      end
      object ppLabel26: TppLabel
        UserName = 'SeriNo1'
        AutoSize = False
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 8
        Font.Style = []
        Transparent = True
        mmHeight = 3704
        mmLeft = 50536
        mmTop = 13229
        mmWidth = 25665
        BandType = 4
      end
      object ppLine1: TppLine
        UserName = 'Line1'
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        Weight = 0.750000000000000000
        mmHeight = 1588
        mmLeft = 26988
        mmTop = 12435
        mmWidth = 50006
        BandType = 4
      end
      object ppSystemVariable1: TppSystemVariable
        UserName = 'SystemVariable1'
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Name = 'Arial'
        Font.Size = 6
        Font.Style = [fsBold]
        TextAlignment = taCentered
        Transparent = True
        mmHeight = 2646
        mmLeft = 66146
        mmTop = 6615
        mmWidth = 9525
        BandType = 4
      end
      object ppLabel4: TppLabel
        UserName = 'Stokkodu2'
        AutoSize = False
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 8
        Font.Style = []
        Transparent = True
        mmHeight = 3704
        mmLeft = 28046
        mmTop = 16669
        mmWidth = 21960
        BandType = 4
      end
      object ppLabel5: TppLabel
        UserName = 'Serino2'
        AutoSize = False
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 8
        Font.Style = []
        Transparent = True
        mmHeight = 3704
        mmLeft = 50536
        mmTop = 16669
        mmWidth = 25665
        BandType = 4
      end
      object ppLabel6: TppLabel
        UserName = 'Stokkodu3'
        AutoSize = False
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 8
        Font.Style = []
        Transparent = True
        mmHeight = 3704
        mmLeft = 28046
        mmTop = 20108
        mmWidth = 21960
        BandType = 4
      end
      object ppLabel7: TppLabel
        UserName = 'Serino3'
        AutoSize = False
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 8
        Font.Style = []
        Transparent = True
        mmHeight = 3704
        mmLeft = 50536
        mmTop = 20108
        mmWidth = 25665
        BandType = 4
      end
      object ppLabel8: TppLabel
        UserName = 'Stokkodu4'
        AutoSize = False
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 8
        Font.Style = []
        Transparent = True
        mmHeight = 3704
        mmLeft = 28046
        mmTop = 23548
        mmWidth = 21960
        BandType = 4
      end
      object ppLabel9: TppLabel
        UserName = 'Serino4'
        AutoSize = False
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 8
        Font.Style = []
        Transparent = True
        mmHeight = 3704
        mmLeft = 50536
        mmTop = 23548
        mmWidth = 25665
        BandType = 4
      end
      object ppLabel10: TppLabel
        UserName = 'Stokkodu5'
        AutoSize = False
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 6
        Font.Style = []
        Transparent = True
        mmHeight = 2646
        mmLeft = 28046
        mmTop = 26988
        mmWidth = 21960
        BandType = 4
      end
      object ppLabel11: TppLabel
        UserName = 'Serino5'
        AutoSize = False
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1.000000000000000000
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 6
        Font.Style = []
        Transparent = True
        mmHeight = 2646
        mmLeft = 50536
        mmTop = 26988
        mmWidth = 25665
        BandType = 4
      end
    end
    object ppParameterList2: TppParameterList
    end
  end
  object spSeriOkutProblem: TADOStoredProc
    Connection = dm.connect
    CursorType = ctStatic
    ProcedureName = 'sp_SeriOkutProblem;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@MontajOkut'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end
      item
        Name = '@Serinos'
        Attributes = [paNullable]
        DataType = ftWideString
        Size = 50
        Value = Null
      end
      item
        Name = '@Stokkod'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@MakinaNo'
        Attributes = [paNullable]
        DataType = ftWideString
        Size = 50
        Value = Null
      end
      item
        Name = '@UretimNo'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Perkod'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Kullanici'
        Attributes = [paNullable]
        DataType = ftWideString
        Size = 1
        Value = Null
      end
      item
        Name = '@OkutPerkod'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end>
    Left = 856
    Top = 510
  end
end
